﻿Public Class Motos___Envíos

    Private Sub RepartidorBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RepartidorBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.RepartidorBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DsMotos)

    End Sub

    Private Sub Motos___Envíos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Height = Screen.PrimaryScreen.WorkingArea.Height
        Me.Width = Screen.PrimaryScreen.WorkingArea.Width
        Me.Left = 0
        Me.Top = 0

        'TODO: esta línea de código carga datos en la tabla 'DsMotos.Repartidor' Puede moverla o quitarla según sea necesario.
        Me.RepartidorTableAdapter.Fill(Me.DsMotos.Repartidor)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Forms.Buscar_Moto.ShowDialog()
    End Sub

    Private Sub DocumentoTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DocumentoTextBox.KeyPress
        'ACEPTA SOLO NUMEROS
        If e.KeyChar >= Chr(48) And e.KeyChar <= Chr(57) Or e.KeyChar = Chr(8) Then
            e.Handled = False
        Else
            If e.KeyChar < Chr(48) Or e.KeyChar > Chr(57) Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub DocumentoTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DocumentoTextBox.TextChanged

    End Sub

    Private Sub TelefonoMovilTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TelefonoMovilTextBox.KeyPress
        'ACEPTA SOLO NUMEROS
        If e.KeyChar >= Chr(48) And e.KeyChar <= Chr(57) Or e.KeyChar = Chr(8) Or e.KeyChar = "-"c Then
            e.Handled = False
        Else
            If e.KeyChar < Chr(48) Or e.KeyChar > Chr(57) Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub TelefonoMovilTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TelefonoMovilTextBox.TextChanged

    End Sub
End Class